(DEFUN C:UDTITLEFIELDS ()
  (SETQ this-ttbats (SSGET "X" '((2 . "mbd-lkcttbats"))))
  (SETQ title-fill-1
    (STRCAT
      "%<\\AcSm Database(\"L:\\Elgin-15.01\\800 Drawings\\810 Design Drawings\\Elgin-1501-PRC Pipeline.dst\").SheetSet(\"gDFF506E4-738E-4D0D-A2FB-37F4CA954155\").Component(\"g816BB8AC-6064-41A7-AFBF-3A697B606D6E\").Name \\f \"%tc4\">%"
      "\n"
      "%<\\AcSm Sheet.Title \\f \"%tc4\">%"
      "\n"
      "%<\\AcSm Database(\"L:\\Elgin-15.01\\800 Drawings\\810 Design Drawings\\Elgin-1501-PRC Pipeline.dst\").SheetSet(\"gDFF506E4-738E-4D0D-A2FB-37F4CA954155\").Component(\"g3EC0D979-E831-41B5-8F80-20ED1A99F1AA\").Name \\f \"%tc4\">%"
      " Line "
      "%<\\AcSm Database(\"L:\\Elgin-15.01\\800 Drawings\\810 Design Drawings\\Elgin-1501-PRC Pipeline.dst\").SheetSet(\"gDFF506E4-738E-4D0D-A2FB-37F4CA954155\").Component(\"g55F1247B-F406-4C44-A496-D991B4840A0A\").Name \\f \"%tc4\">%"
    )
  )
  (IF attupd nil (load "attupd" "\nFile ATTUPD.LSP not loaded! "))
  (attupd "mbd-lkcttbats" "TITLE_1" title-fill-1)
  (COMMAND "UPDATEFIELD" (SSNAME this-ttbats 0) "")
  (PRINC)
)
  